home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / cwmail.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  76 lines
  1. #
  2. # This script was written by John Lampe...j_lampe@bellsouth.net 
  3. #
  4. # See the Nessus Scripts License for details
  5. #
  6.  
  7.  
  8. if(description)
  9. {
  10.  script_id(11727);
  11.  script_bugtraq_id(4093);
  12.  script_version ("$Revision: 1.5 $");
  13.  script_cve_id("CAN-2002-0273");
  14.  
  15.  
  16.  name["english"] = "CWmail.exe vulnerability";
  17.  name["francais"] = "CWMail.exe vulnerability";
  18.  script_name(english:name["english"], francais:name["francais"]);
  19.  
  20.  desc["english"] = "The CWMail.exe exists on this webserver.  
  21. Some versions of this file are vulnerable to remote exploit.
  22.  
  23. An attacker may make use of this file to gain access to
  24. confidential data or escalate their privileges on the Web
  25. server.
  26.  
  27.  
  28. Solution : remove it from the cgi-bin or scripts directory. 
  29.  
  30. Patch information: http://marc.theaimsgroup.com/?l=bugtraq&m=101362100602008&w=2
  31.  
  32. Risk factor : High";
  33.  
  34.  
  35.  script_description(english:desc["english"]);
  36.  
  37.  summary["english"] = "Checks for the cwmail.exe file";
  38.  
  39.  script_summary(english:summary["english"]);
  40.  
  41.  script_category(ACT_GATHER_INFO);
  42.  
  43.  
  44.  script_copyright(english:"This script is Copyright (C) 2003 John Lampe",
  45.         francais:"Ce script est Copyright (C) 2003 John Lampe");
  46.  family["english"] = "CGI abuses";
  47.  family["francais"] = "Abus de CGI";
  48.  script_family(english:family["english"], francais:family["francais"]);
  49.  script_dependencie("find_service.nes", "no404.nasl");
  50.  script_require_ports("Services/www", 80);
  51.  exit(0);
  52. }
  53.  
  54. #
  55. # The script code starts here
  56. #
  57.  
  58. include("http_func.inc");
  59. include("http_keepalive.inc");
  60.  
  61. port = get_http_port(default:80);
  62.  
  63. if(!get_port_state(port))exit(0);
  64.  
  65.  
  66. foreach dir (cgi_dirs()) {
  67.    req = http_get(item:dir + "/cwmail.exe", port:port);
  68.    res = http_keepalive_send_recv(port:port, data:req);
  69.    if( res == NULL ) exit(0);
  70.    
  71.    if (egrep (pattern:".*CWMail 2\.[0-7]\..*", string:res) ) {
  72.        security_hole(port);
  73.     exit(0);
  74.     }
  75. }
  76.